home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Internet for Everybody
/
The Internet for Everybody.iso
/
pc
/
install.inf
< prev
next >
Wrap
INI File
|
1995-02-09
|
4KB
|
188 lines
;; Installer for IFE product Version 1.0.1
;; 2/9/95
DefineVariables
Number [ReturnVal1]
Number [ReturnVal2]
number [ReturnVal3]
Number [ErrCount]
Directory [WinDir]
Directory [WinsDir]
Logical [EnKeyb]
Logical [NetAvail]
Logical [MathPres]
Logical [CDAvail]
Number [XMSAvail]
Number [ExtmemPagesActive]
Number [ExtmemPagesAvail]
Number [ExtMemAvail]
Number [ExtMemPres]
Number [ExpMempgavail]
Number [ExpMempgactive]
Text [DispType]
Text [OSVer]
Text [DosVer]
Text [EmsVer]
Text [ProdExecutable]
Text [GroupTitle]
Text [GroupFile]
Text [ExistingGroupName]
Text [InstDir]
Text [FactsIconF]
Text [IconTitle]
Text [IconFile]
EndDefineVariables
SetDefaultBitMap Off
Do SetupDisplay
Do CheckHardware
If [errcount] > 1
Dialog UseHeader "Encountered Some Problems"
.L The installation has encountered the following problems,
.L you can continue to install or exit installation.
[Array1][1]
[Array1][2]
[Array1][3]
[Array1][4]
[Array1][5]
[Array1][6]
[Array1][7]
EndDialog
Endif
:Start
Dialog [YesOrNo1] UseHeader "The Internet for Everybody 1.0.1"
The Internet for Everybody requires
QuickTime for Windows to play its movies.
Do you want to install The Internet For
Everybody, and run the Apple QuickTime
Installer?
EndDialog
If .not. [YesOrNo1]
SoLong
endif
Do Install
SoLong
Procedure SetupDisplay
SetDefaultBitMap Off
SetBackGroundColor 0 0 64 191 64 0 TopToBottom
SetPopupAttrTo YellowOnBlue
ShowWindow Maximized
EndProcedure
Procedure FindCDDrive
[String1] := A
[Point1]
If DriveIsCDROM [String1]
Exit ;; Drive letter of first CD ROM drive
EndIf
If [String1] = Z
GoTo [Point3]
EndIf
IncrementString [String1]
GoTo [Point1]
[Point3]
Popup Sorry. Installer could not identify your CD-ROM drive.
[String1] := BlankString
EndProcedure
Procedure Install
;; [InstallationDirectory] := \IFE
;; DetermineInstallationDrive RequireFixed
;; DetermineInstallationDirectory installationdrive:\[installationdirectory]
;; ChangeDirectoryto [InstallationDirectory]
Do FindCDDrive ;;Get device letter for CD ROM drive
[ProdExecutable] := [String1]:\IFE.exe
[GroupTitle] := Internet For Everybody
[InstDir] := [InstallationDirectory]
[IconFile] := [String1]:\ife.ico
[IconTitle] := The Internet For Everybody 1.0.1
ProgramManagerDDE
CreateGroup([GroupTitle])
DeleteItem(The Internet For Everybody)
DeleteItem(Internet For Everybody)
DeleteItem(The Internet For Everybody DEMO)
DeleteItem(Internet For Everybody DEMO)
ReplaceItem([IconTitle])
AddItem([ProdExecutable],[IconTitle],[IconFile],0,0,0)
EndProgramManagerDDE
;; Run Apple QTW Installer
Run [String1]:\QTW20\SETUP.EXE NoPrompt
;; Clean up remaining files in QTW/BIN (QTNOTIFY.EXE)
If FileExists C:\QTW\BIN\QTNOTIFY.EXE
SetFileAttrTo 00 for C:\QTW\BIN\QTNOTIFY.EXE
EndIf
DeleteFiles from C:\QTW\BIN Quietly
*.*
EndDeleteFiles
;; Clean up Program Manager windows
ProgramManagerDDE
ShowGroup(QuickTime for Windows,6)
ShowGroup([GroupTitle],1)
EndProgramManagerDDE
EndProcedure
Procedure CheckHardware
[Number3] := 1
[Windir] := [WindowsDirectory]
[Winsdir] := [WindowsSystemDirectory]
[ExtmemPagesActive] := ExtendedMemoryPagesActive
[ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
[ExtMemAvail] := ExtendedMemoryAvailable
[ExtMemPres] := ExtendedMemoryPresent
[ExpMempgAvail] := ExpandedMemoryPagesAvailable
[ExpMempgActive] := ExpandedMemoryPagesActive
[OsVer] := OSVersion
[DosVer] := DOSVersion
[EmsVer] := EMSVersion
If [ExtmemPres] < 5000
[Array1][[number3]] := You should have at least 6 MB of memory for video to play properly.
IncrementNumber [number3]
Endif
[Errcount] := [Number3]
EndProcedure
Procedure DDENonFatalErrorTrap
EndProcedure